home *** CD-ROM | disk | FTP | other *** search
/ Corrections in America -…uction (Student Resource) / Allen.iso / pc / content / mtext.dxr / 00002_Module setup.ls < prev    next >
Encoding:
Text File  |  2005-12-16  |  2.2 KB  |  49 lines
  1. global gMovieProperties
  2.  
  3. on mTextSetup
  4.   cChapter = gMovieProperties.pCurrentChapter
  5.   cChapterItem = gMovieProperties.pCurrentChapterItem
  6.   currentSprite = 15
  7.   primaryFile = cChapterItem.filesList[1]
  8.   if not offset(".", primaryFile) then
  9.     primaryFile = primaryFile & FormatNumString(cChapter, 2) & ".txt"
  10.   end if
  11.   mainTextMember = member("BodyText")
  12.   mainTextMember.text = ReadFromFile(gMovieProperties.pTextfilesFolder & primaryFile)
  13.   mainTextMember.font = gMovieProperties.pMainFont && "*"
  14.   mainTextMember.fontSize = gMovieProperties.pMainFontSize
  15.   mainTextMember.color = rgb(0, 0, 0)
  16.   if gMovieProperties.pTextParsing then
  17.     ParseMember(mainTextMember)
  18.   end if
  19.   cMember = member("instructions")
  20.   cMember.text = EMPTY
  21.   cMember.font = gMovieProperties.pMainFont && "*"
  22.   cMember.fontSize = gMovieProperties.pMainFontSize
  23.   cMember.color = gMovieProperties.pMainFontColor
  24.   if cChapterItem.filesList.count > 1 then
  25.     textItem = 2
  26.     cText = ReadFromFile(gMovieProperties.pTextfilesFolder & "Item" & gMovieProperties.pFileDelimiter & cChapterItem.filesList[textItem])
  27.     if gMovieProperties.pTextParsing then
  28.       ParseMember(cMember)
  29.     end if
  30.     cMember.text = cText
  31.   end if
  32.   PlaceTitle(currentSprite, "Chapter" && cChapter & ":" && cChapterItem.name, [#leftOffset: 0, #topOffset: 0])
  33.   currentSprite = currentSprite + 2
  34.   if gMovieProperties.pButtonPlacementType = 1 then
  35.     PlaceButton(currentSprite, member("Back up"), script("BackBehavior").new(), gMovieProperties.pButtonLocationsList[#back])
  36.     currentSprite = currentSprite + 1
  37.     PlaceButton(currentSprite, member("Quit up"), script("QuitBehavior").new(), gMovieProperties.pButtonLocationsList[#quitMain])
  38.     currentSprite = currentSprite + 2
  39.   else
  40.     if gMovieProperties.pButtonPlacementType = 2 then
  41.       PlaceButtonAndText(currentSprite, member("style1 up"), "Back", script("BackBehavior").new(), gMovieProperties.pButtonLocationsList[#back])
  42.       currentSprite = currentSprite + 2
  43.       PlaceButtonAndText(currentSprite, member("style1 up"), "Quit", script("QuitBehavior").new(), gMovieProperties.pButtonLocationsList[#quitMain])
  44.       currentSprite = currentSprite + 2
  45.     end if
  46.   end if
  47.   gMovieProperties.FinishPageSetup()
  48. end
  49.